home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / m2 / ModGen.lha / ModGen / Source / MGgui.def < prev    next >
Text File  |  1995-04-17  |  2KB  |  61 lines
  1. DEFINITION MODULE MGgui;
  2.  
  3. (*
  4.  *  Source generated with ModGen V1.0 (17.4.95) by Frank Lömker
  5.  *  ModGen is based on OG V37.11 by Thomas Igracki
  6.  *  OG is based on GenOberon V1.0 by Kai Bolay & Jan van den Baard
  7.  *
  8.  *  GUI generated with GadToolsBox by Jan van den Baard
  9.  *  GUI designed by : Frank Lömker
  10.  *)
  11.  
  12. IMPORT
  13.   I:=Intuition, g:=Graphics, y:=SYSTEM;
  14.  
  15. CONST
  16.   MGHotKeys = "ASOURMVBCDIEP";
  17.   GDWindows                          = 0;
  18.   GDAll                              = 1;
  19.   GDQuit                             = 2;
  20.   GDSelect                           = 3;
  21.   GDFrom                             = 4;
  22.   GDTfrom                            = 5;
  23.   GDTto                              = 6;
  24.   GDFont                             = 7;
  25.   GDSys                              = 8;
  26.   GDRaster                           = 9;
  27.   GDMouse                            = 10;
  28.   GDSave                             = 11;
  29.   GDAbout                            = 12;
  30.   GDSource                           = 13;
  31.   GDDest                             = 14;
  32.   GDFsource                          = 15;
  33.   GDFdest                            = 16;
  34.   GDIcon                             = 17;
  35.   GDScreen                           = 18;
  36.   GDFscreen                          = 19;
  37.   GDPort                             = 20;
  38.  
  39.   MGCNT = 21;
  40.  
  41. VAR
  42.   Scr: I.ScreenPtr;
  43.   VisualInfo: y.ADDRESS;
  44.   MGWnd: I.WindowPtr;
  45.   MGGList: I.GadgetPtr;
  46.   MGGadgets: ARRAY [0..MGCNT-1] OF I.GadgetPtr;
  47.   MGZoom: ARRAY [0..3] OF INTEGER;
  48.   MGLeft, MGTop,
  49.   MGWidth, MGHeight: INTEGER;
  50.   Font: g.TextAttrPtr;
  51.   Attr,Topaz80: g.TextAttr;
  52.  
  53. PROCEDURE SetupScreen (pub: y.STRING): INTEGER;
  54. PROCEDURE CloseDownScreen;
  55. PROCEDURE MGRender;
  56. PROCEDURE CreateMGGadgets (): INTEGER;
  57. PROCEDURE OpenMGWindow (createGads: BOOLEAN): INTEGER;
  58. PROCEDURE CloseMGWindow;
  59.  
  60. END MGgui.
  61.